home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / os2 / anidemo.zip / REMOVE.CMD < prev    next >
OS/2 REXX Batch file  |  1996-03-31  |  681b  |  30 lines
  1. /* Animouse Demo Removal program */
  2.  
  3.   Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'    /* Make REXX functions available */
  4.   Call SysLoadFuncs
  5.  
  6.   Signal On Halt Name ErrorHandler                   /* Error handler */
  7.  
  8.   Call SysCls
  9.   Say
  10.   Say
  11.   Say " Animouse Demo Removal"
  12.   Say " ---------------------"
  13.  
  14.   Say " Removing WPS objects . . ."            /* Now create/update the Desktop object*/
  15.   Call SysDestroyObject("<ANIMFOLDER>")
  16.   
  17.   Say " Done!  Simply delete the Program files to finish removal."
  18.  
  19.   Exit
  20.  
  21.  
  22. /******* ErrorHandler procedure */
  23.  
  24.   ErrorHandler:
  25.  
  26.     Call SysCls
  27.     Say " EEEEWWWW! Unknown error! - aborting installation . . ."
  28.   Exit
  29.  
  30.